/* Photon Warp In */
/* Made by Dell Bond */
/* Version 1.0 */

Call ZocTimeOut 1400000

say ""
say ""
say "You must have at least one photon missile on you"


do 100
call zocsend "d"
result =zocwaitmux("ACTIVITY WARNI", "loyed Figh")
select
	when result=0 then p=1
	when result=1 then p=2
end

if p=1 then do
	call zocsend "#"
end

if p=2 then do
	call zocwait "rs Report Sector "
	psector=GetSector(0,0)
	call zocsend "cpy"
	call zocsend psector
	call zocsend "^m"
	result =zocwaitmux("s not an adjacent sec", "Missile launched into")
	select
		when result=0 then t=1
		when result=1 then t=2
	end
	
	if t=1 then do
		call zocsend "qq"
	end
	
	if t=2 then do
		call zocsend "q"
		call zocsend psector
		call zocsend "^m"
	end

end

end
exit

GetSector:
holdfinal=""
call zocwait ":"
holds=zoclastline()
DO addchar=1 to length(holds)
        holdsit=substr(holds,addchar,1)
        if holdsit<>"]" then DO
          if holdsit<>"," then holdfinal=holdfinal||holdsit
        end
END
RETURN holdfinal